home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / qwkdemo.zip / PREONL.BAT < prev    next >
DOS Batch File  |  1993-05-31  |  3KB  |  99 lines
  1. @echo off
  2. REM
  3. REM 1% = QWK Packet name 
  4. REM 2% = QWK Path
  5. REM 3% = REP Path
  6. REM 4% = WORK Path
  7. REM 5% = QWK archive level
  8. REM 6% = REP archive level
  9. echo .
  10. echo ... Executing PREONL.BAT
  11. echo .
  12. rem
  13. if NOT exist %3%1.REP goto A10
  14. rem
  15. PKUNZIP %3%1.REP %4 *.msg
  16. rem
  17. if NOT %6.==9. goto A1
  18.         if exist %2%1.RE8 copy %2%1.RE8 %2%1.RE9
  19.         if exist %2%1.RE7 copy %2%1.RE7 %2%1.RE8
  20.         if exist %2%1.RE6 copy %2%1.RE6 %2%1.RE7
  21.         if exist %2%1.RE5 copy %2%1.RE5 %2%1.RE6
  22.         if exist %2%1.RE4 copy %2%1.RE4 %2%1.RE5
  23.         if exist %2%1.RE3 copy %2%1.RE3 %2%1.RE4
  24.         if exist %2%1.RE2 copy %2%1.RE2 %2%1.RE3
  25.         if exist %2%1.RE1 copy %2%1.RE1 %2%1.RE2
  26.         if exist %2%1.REP copy %2%1.REP %2%1.RE1
  27.         if exist %2%1.REP erase %2%1.REP
  28.         goto A10
  29. :A1
  30. if NOT %6.==8. goto A2
  31.         if exist %2%1.RE7 copy %2%1.RE7 %2%1.RE8
  32.         if exist %2%1.RE6 copy %2%1.RE6 %2%1.RE7
  33.         if exist %2%1.RE5 copy %2%1.RE5 %2%1.RE6
  34.         if exist %2%1.RE4 copy %2%1.RE4 %2%1.RE5
  35.         if exist %2%1.RE3 copy %2%1.RE3 %2%1.RE4
  36.         if exist %2%1.RE2 copy %2%1.RE2 %2%1.RE3
  37.         if exist %2%1.RE1 copy %2%1.RE1 %2%1.RE2
  38.         if exist %2%1.REP copy %2%1.REP %2%1.RE1
  39.         if exist %2%1.REP erase %2%1.REP
  40.         goto A10
  41. :A2
  42. if NOT %6.==7. goto A3
  43.         if exist %2%1.RE6 copy %2%1.RE6 %2%1.RE7
  44.         if exist %2%1.RE5 copy %2%1.RE5 %2%1.RE6
  45.         if exist %2%1.RE4 copy %2%1.RE4 %2%1.RE5
  46.         if exist %2%1.RE3 copy %2%1.RE3 %2%1.RE4
  47.         if exist %2%1.RE2 copy %2%1.RE2 %2%1.RE3
  48.         if exist %2%1.RE1 copy %2%1.RE1 %2%1.RE2
  49.         if exist %2%1.REP copy %2%1.REP %2%1.RE1
  50.         if exist %2%1.REP erase %2%1.REP
  51.         goto A10
  52. :A3
  53. if NOT %6.==6. goto A4
  54.         if exist %2%1.RE5 copy %2%1.RE5 %2%1.RE6
  55.         if exist %2%1.RE4 copy %2%1.RE4 %2%1.RE5
  56.         if exist %2%1.RE3 copy %2%1.RE3 %2%1.RE4
  57.         if exist %2%1.RE2 copy %2%1.RE2 %2%1.RE3
  58.         if exist %2%1.RE1 copy %2%1.RE1 %2%1.RE2
  59.         if exist %2%1.REP copy %2%1.REP %2%1.RE1
  60.         if exist %2%1.REP erase %2%1.REP
  61.         goto A10
  62. :A4
  63. if NOT %6.==5. goto A5
  64.         if exist %2%1.RE4 copy %2%1.RE4 %2%1.RE5
  65.         if exist %2%1.RE3 copy %2%1.RE3 %2%1.RE4
  66.         if exist %2%1.RE2 copy %2%1.RE2 %2%1.RE3
  67.         if exist %2%1.RE1 copy %2%1.RE1 %2%1.RE2
  68.         if exist %2%1.REP copy %2%1.REP %2%1.RE1
  69.         if exist %2%1.REP erase %2%1.REP
  70.         goto A10
  71. :A5
  72. if NOT %6.==4. goto A6
  73.         if exist %2%1.RE3 copy %2%1.RE3 %2%1.RE4
  74.         if exist %2%1.RE2 copy %2%1.RE2 %2%1.RE3
  75.         if exist %2%1.RE1 copy %2%1.RE1 %2%1.RE2
  76.         if exist %2%1.REP copy %2%1.REP %2%1.RE1
  77.         if exist %2%1.REP erase %2%1.REP
  78.         goto A10
  79. :A6
  80. if NOT %6.==3. goto A7
  81.         if exist %2%1.RE2 copy %2%1.RE2 %2%1.RE3
  82.         if exist %2%1.RE1 copy %2%1.RE1 %2%1.RE2
  83.         if exist %2%1.REP copy %2%1.REP %2%1.RE1
  84.         if exist %2%1.REP erase %2%1.REP
  85.         goto A10
  86. :A7
  87. if NOT %6.==2. goto A8
  88.         if exist %2%1.RE1 copy %2%1.RE1 %2%1.RE2
  89.         if exist %2%1.REP copy %2%1.REP %2%1.RE1
  90.         if exist %2%1.REP erase %2%1.REP
  91.         goto A10
  92. :A8
  93. if NOT %6.==1. goto A10
  94.         if exist %2%1.REP copy %2%1.REP %2%1.RE1
  95.         if exist %2%1.REP erase %2%1.REP
  96.         goto A10
  97. :A10
  98.  
  99.